home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 June / 64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64 / play me (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  945b  |  29 lines
  1. 0 rem *** play me ***
  2. 1 :
  3. 2 rem abspielen einer maestro-64-melodie
  4. 3 :
  5. 4 rem (c) nh-150388-arr
  6. 5 :
  7. 10 ifpeek(49153)<>65thenload"mc1",8,8
  8. 15 dima%(3,2500),b%(15,10)
  9. 20 input"filename der melodie ";a$
  10. 30 input"abspielgeschwindigkeit ";f%
  11. 35 print"mompls...
  12. 36 [129]i[178].[164]10:[129]j[178].[164]14:[135]b%(j,i):[130]j,i
  13. 40 [158]49161,a%(0,0),a$,8,0
  14. 45 [151]49544,.:[151]49561,.:[151]49565,209:[143] routine 'kastrieren'
  15. 46 [153]"tasten: shift return - ende
  16. 47 print"        f7/f8        - tempo[157][157][157][157]viel spass !
  17. 50 [158]49164,a%(0,0),f%,b%(0,0)
  18. 490 [131]11,64,9,6,5,64,9,6,8,64,10,6,64,,79
  19. 492 [131]8,64,4,24,8,64,4,24,8,64,4,24,64,,79
  20. 494 [131]6,64,27,89,6,64,27,88,11,64,11,87,64,,79
  21. 496 [131],32,11,,,32,11,,,32,8,,64,,79
  22. 498 [131],32,51,,,32,51,,,32,51,,64,,79
  23. 500 [131]12,32,104,24,12,32,104,42,12,32,104,42,64,,79
  24. 502 [131]9,16,57,,9,16,57,,9,16,57,,64,,79
  25. 504 [131]15,16,9,25,15,16,9,25,15,16,9,25,64,,79
  26. 506 [131]10,16,39,73,10,16,39,73,10,16,39,73,64,,79
  27. 508 [131],32,7,25,3,64,9,25,,16,9,121,64,,79
  28. 510 [131]8,64,9,6,8,64,9,6,8,64,9,6,64,,79
  29.